From fe8e3c4fd0c9396204ba41bad94f652d557dad64 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Tue, 19 Mar 2013 08:23:36 +0400 Subject: [PATCH] * lisp/whitespace.el (whitespace-color-on): Use `prepend' OVERRIDE value for `whitespace-line' face. --- lisp/ChangeLog | 5 +++++ lisp/whitespace.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 704097b6edc..2a98288b6d7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-03-19 Dmitry Gutov + + * whitespace.el (whitespace-color-on): Use `prepend' OVERRIDE + value for `whitespace-line' face (Bug#13875). + 2013-03-19 Leo Liu * progmodes/compile.el (compilation-display-error): New command. diff --git a/lisp/whitespace.el b/lisp/whitespace.el index b0bb610aa3a..382d6f482e2 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -2209,7 +2209,7 @@ resultant list will be returned." ,(if (memq 'lines whitespace-active-style) 0 ; whole line 2) ; line tail - whitespace-line t))) + whitespace-line prepend))) ,@(when (or (memq 'space-before-tab whitespace-active-style) (memq 'space-before-tab::tab whitespace-active-style) (memq 'space-before-tab::space whitespace-active-style)) -- 2.30.2